EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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RRRRRRRR TTTTTTTTTT Lt MM MM AAAAAA cccccccc MM AAAAAA RRRRRRRR 
RRRRRRRR TTTTTTTTTT Lt MM MM AAAAAA ccccccce MM AAAAAA RRRRRRRR 
RR RR TT LL MMMM MMMM AA AA CC MMMM MMMM AA AA RR RR 
RR RR TT LL MMMM MMMM AA AA CC M AA AA RR RR 
RR RR TT LL MM MM AA AA CC MM MM MM AA AA RR RR 
TT LL MM MM MM AA AA CC MM AA AA RR RR 
RRRRRRRR TT LL MM MM AA AA CC MM MM AA AA RRRRRRRR 
RRRRRRRR TT LL MM MM AA AA CC MM MM AA AA RRRRRRRR 
RR RR TT LL MM MM AAAAAAAAAA CC MM MM AAAAAAAAAA RR RR 
RR RR TT LL MM MM AAAAAAAAAA CC MM MM AAAAAAAAAA RR RR 
R RR TT LL MM MM AA AA CC MM MM AA AA RR RR eoee 
RR RR TT LL MM MM AA AA CC MM MM AA AA RR RR cece 
RR RR TT LLLLLLLLLL MM MM AA ‘lal cccccccc MM MM AA AA RR RR eee 
RR RR TT LLLLLLLLLL MM MM AA AA cccccccc MM MM AA AA RR RR cece 
MM MM AAAAAA RRRRRRRR 
MM MM AAAAAA RRRRRRRR 
MMMM 6MMMM AA AA RR RR 
MMMM MMMM AA AA RR RR 
mM 66MM OMM OAA AA RR RR 
MM MM MM OAA AA RR 
MM MM AA AA RRRRRRRR 
mM MM AA RRRRRRRR 
MM MM AAAAAAAA RR RR 
MM MM AAAAAAAAAA RR RR 
MM MM AA RR RR 
MM MM AA RR RR 
MM MM AA AA RR RR 
MM MM 
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e, RTILMACMAR.MAR, defines macros from the RTL for STARLET.MLB. 
BL 1003 


mn 


—PARAARARAAAAAASALLALARLARLASAAAAAAASAR ALAS ALA SALES SESE ESAS RASA REE ASAE RELA SAAS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS hes BS ‘gol UNDER A LICENSE AND ag Pa 33 a 2 AND copreD 


* 
* 
% 
* 
* 
® 
0 © 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

* 

% 

@ 

* 

& 

* 

* 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


*eeeeneeee ee eee eee eaeeae 


(ARRAS ASASLASLAAAAALALALALASA AAAS ALALAR ES ASAS ALAA EAS ESAS ALAS ALAS AR ARRAS SE SO 


Edit History: 


1-001 = Original, with just SLIB_KEY TABLE. JBS 19-DEC-1979 
1-002 = Add copyri nt notice. SBL 11-Mar-1980 

1-005 - Reset location counter to proper place at end of S$SLIB_KEY_TABLE. 
SBL 10-Sep-1981 


su18. KEY_TABLE builds the data structure for LIBSLOOKUP_KEY. 
It iS called with a single argument, consisting of a List of 
airs. The pairs consist of the keyword string followed 

y the (32-bit) value associated with the keyword. For example: 


SLIB_KEY_TABLE <<A,0>,<B,1>,<C,2>> 
associates A with 0, B with 1 and C with 2. 
This Rey TABLE with one yt Ay: the key table. It is called from 


SLIB_KEY_TABLE with LIBSSA_STRLOC pointing to the place to put the keyword 
string. “LIBSS$A_STRLOC is Updated. 


ee eT er CR ne eee ee Se Se Ge Ge Oe Ge Ge Oe Se Ge Ge Se Se Ge Ge Ge Ge Be Se Ge FH Se Se ee Be ee 


- MACRO SS$LIB_KEY_ENTRY STRING, VALUE 
- ADDRESS LIBS$K_5 TRLOC 
. LONG LUE 

LIBSSA_HERE= 


EL 1BSSAL STRLOC 


-ASCIC \STRING\ 
LIBS$A_STRLOC=. 
-=LIBSSA_HERE 

7 ENDM $S$LIB_KEY_ENTRY 


; -MACRO SLIB_KEY_TABLE PAIRS 
: Count the number of argument pairs. 
( 18$$K_NPAIRS=0 

. IRP ENTRY, <PAIRS> 
LIBSS$K -NPAIRS=L1BSSK_ NPAIRS+1 


emit the count of following lLongwords. 
a . LONG LIBSSK_NPAIRS#2 

: ; Compute where the strings will start. 
(iessa_ STRLOC=.+<8*L IBSSK_NPAIRS> 

: "enit each table entry, with its string. 


7 ENTRY, <PAIRS> 
iitie_ KEY_ENTRY ENTRY 


3+ j 
; Reset location counter to just past the last string. 


*=LIBS$A_STRLOC 
~ENDM $LIB_KEY_TABLE 


End of macro $LIB_KEY_TABLE 
End of file RTLMACMAR.MAR 
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; This macro produces the key table for LIBSLOOKUP_KEY. 


it 
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